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16 
_ BASSCANTYPAHEAD 1-Sep=1 ms 1387 9 9:93 63 AX=-11 Bliss-32 V4.0-7 
14 Sep- 19 BASRTL.SRC BASCANTYP. 3 2;1 
' 
i 


MODULE ae tRNA TENT = ( 


*1-005' File: BASCANTYP.B32 EDIT:RNG1005 


BEGIN 


See eR EAR AAA ARAAAAAAAAAAAEAEA EEA A AAA AAA AA TERA AKA REKE ERA ee 


‘# COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


He ine SOFTWARE IS FURNISHED mt A LICENSE AND MAY BE yseS AND Sgt 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE og Sl dh NOTICE. aD SOFTWARE OR ANY 


; 0 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
® 
® 
® 
® 
® 
® 
* 
® 
ie TRANSFERRED. * 
® 
* 
f 
* 
& 
® 
® 
te 
* 
® 


't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
“h eempokar itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
7* . 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee eR RARER AAA AAAA RATE AAAAAEAARE KR e Kee eeeteeeeteeeeAAeeees 
' 


'e4¢ 
FACILITY: BASIC=-PLUS-2 Miscellaneous 1/0 
ABSTRACT: 


This moduie contains the BASIC CANTYPA function, 
which cancels type-ahead. 


ee www elo lolololololololololololeolelololololololololololqlo) 


WAAAWWN A.A AIA PONPONIPUNINPININYDD 4 OO OS SK OOOOOCOOCOCO 
NOUS WN OO ODNAUE WIN @OOONAUE WN O OONOUS Wh 


SSSSSSSSSSsssssssssssssssssssssssssss 


WR 30 OD NOV E AN OOO NO VE WN (9 ODNOAU EWN SO OODNOAUE WN (“OOONOU EWN 
ee ee a a ed dd dd sd td I OOO 
a 


PPA BB BEEBE EEE FAWN AINA RINDI NPIPINPNNDD 2 OO OO Oe ee 


' 
i 
i 
i 
i 
‘ 
i 
Oo8S ENVIRONMENT: VAK~-11 User Mode 
sre AUTHOR: John Sauter, CREATION DATE: 01-MAY-1979 
004 i MODIFIED BY: 
004 i 
sg: i 1-001 - Origin 
5 i 1-002 - Sete up *TSBSA USER, FP. JBS 25-JUL-1979 
0046 ' 1-003 - Cancel typeahead Tnmed ately instead of waiting till 
0047 i the next read. L { 
0048 i 1-004 = Use LIBSGET_EF to wh tetese oe an sro flag, instead of using the 
0049 i default efn’ zero. 
Bee 2 1-005 - Declare LIBSSTOP to be astereel. RNG 05-Jan-82 
0089 
005 ! <BLF /PAGE> 


ee - seen 
Be Oe Oe Be Oe Be Se Be Se Se Oe Se Se Be Oe Se Se Se SH Se Se Oe SH Se Oe oe Se Oe Be Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se SH Se Se ae Sees 


EEE oe ——___ — —— 


wo 


| 
} 


EXTERNAL ROUTINE 
LIBSGET_EF allocate an event fla 
LIBSFREE EF, deallocate an event fla 


g 
stop process and return status 


16 

a nee 1h-sep-19 4 90:03:23 armed Bliss-32 v4.0-74 
1 14-Sep-1984 11:54:44 BASRTL.SRCJBASCANTYP.B32;1 
g 5 054 1! 

3 $ 0083 1 ! SWITCHES: 

3 1! 

; 8 0037 1 

: 4 B336 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
Le 0060 1! 

; 6 Bees 1 ! LINKAGES: 

= | OO¢ . 

>; 6646 0065 1 

;. 064 1 REQUIRE ‘RTLIN:OTSLNK’; ! Define Linkages 

: $6 493 1 

; 6 494 1! 
: 68 0495 1 ! TABLE OF CONTENTS: 

3; @& 0496 1! 
: 70 497 1 
: 71 498 1 FORWARD ROUTINE 

: 7 499 1 BASSCANTYPAHEAD; ' Cancel type ahead 

ae 0500 1 

> 24 0501 1! 
3 7 8206 1 ! INCLUDE FILES: 
ae 0503 1! 
Es é 0504 1 
$ e 8208 ! REQUIRE *RTLML:OTSLUB’; ' Get LUB definitions 
. 69 Bare : REQUIRE ‘RTLML:OTSISB’; ' Get ISB definitions 
$ : SFA } REQUIRE "RTLIN:RTLPSECT'; ! Macros for defining psects 
; 0911 1 LIBRARY "RTLSTARLE'; © ' System symbols 

; b3ig 1 
; & 0913 1! 
3 87 0914 1 =! MACROS: 
; & 0915 1! 
é 89 0916 1! NONE 
;s 0917 1! 
$ 91 0918 1 ! EQUATED SYMBOLS: 
3 4 0919 1! 
,;.¥% 0920 1! NONE 
; 0921 1! 
: 95 09 ¢ 1 ! PSECTS: 
es. 09 73 ar 
: ee 09 3 ; DECLARE _PSECTS (BAS); ! Declare psects for BASS facility 
3 38 88 $ 1 ! OWN STORAGE: 

z; 100 09 1! 
; 101 1! NONE 

3 4 9 7 

Z 0 1 ! EXTERNAL REFERENCES: 

; 106 1! 

3 05 1 

3 06 1 

; 1 

; 108 1 

; 109 1 

8 10 1 

: 11 1 


— et Ot = ~~ 


SSS3Ssssss 
BOOB AGES 


LIBSSTOP, 
BASSSOPEN ZERO : NOVALUE 


Z Open channel zero 
BAS$$CB_POSH : JSB_CB_PUSH NOVALUE, 


Load register CCB 


So 
oO 
wo 
oo 


Page 


CP 


| # 
psacan omen 1B-Sep-1986 90:05:25 YAKeHt BL ing 32 WA 0-742. 


3 18 0939 +1 BASSSCB_POP : JSB_CB POP NOVALUE, ! Done with register CCB 
7 0940 1 BASSS$STOP_10 : NOVALOE; ! Signal fatal 1/0 error 
: (116 Ooe3 1 

: 195 4) 1 te 

; A eer : } The following are the error codes used in this module. 

; (6118 945 1 

s 419 0946 1 EXTERNAL LITERAL 

3 139 st 4 1 BASSK_IO_CHANOT : UNSIGNED (8); ! Channel not open. 


r — — 
] 
| 


16 
_ BASSCANTYPAHEAD 1b-3e0- 3:23 YAX-11 BLiss-32 v4. 0-7 p Fi 
W005 opr 1oke Saigeee | PeAsRt SReseAScANT yp B42: er 


> 123 0388 1 GLOBAL ROUTINE BASSCANTYPAHEAD ( ! Cancel type ahead 

3 126 329 1 CHAN i Channel on which to cancel type ahead 
13 125 951 1 )= 

% 952 1 

=e 955 1 !¢¢ 

: : $ B28 : FUNCTIONAL DESCRIPTION: 

; 130 Bo 1/ Suppress type ahead on the terminal open on the specified 

: 131 957 1: channel. 

3; 1 ; 958 1! 

tah, 959 1 | FORMAL PARAMETERS: 

3 960 1} 

3; «4135 961 1! CHAN. rl.v The channel whose terminal to suppress type 

3; 136 0962 1! ahead on. 

s 137 0963 1! 

s 158 0964 1! IMPLICIT INPUTS: 

. | ae 0965 1! 

: 140 0966 1! NONE 

3; «6141 0967 1! 

; 146 0968 1! IMPLICIT OUTPUTS: 

: 14 0969 1} 

> (1446 0970 1! LUBSV_PTA Suppress type-ahead. 

3 «6145 0971 1! 

3 6146 0972 1 | ROUTINE VALUE: 

: 147 0973 1 | COMPLETION CODES: 

3 (148 0974 1: 

3; 149 0975 #1 i SS$_NORMAL 

; 150 0976 1! 

s 151 0977 1 ! SIDE EFFECTS: 

: 13g 0978 1: 

; 0979 1! ignals if an error is encountered. ase : 

3: 154 0980 1: BA $$CB_PUSH will otonet it the channel number is invalid. 

s 55 0981 1! Signals BAS$K_IO_CHANOT if the channel is not open. 

s 156 0982 1} 

ee ps a 0983 1 '- 

; 4158 0984 1 

s 159 0985 § BEGIN 

: 160 0986 

s 161 0987 BUILTIN 

; ise 0988 | FP; 

; 0989 

; 164 0990 GLOBAL REGISTER 

: + aad CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3 189 $398 LOCAL 

: «168 0994 FMP : f per BLOCK C, BYTE), 

3; 169 0995 EVENT LAG, 

: 170 099 STATU 

: a oad DEVNAM. DESC : BLOCK (8, BYTE); 

: 178 0999 FMP = FP; 

3: «174 1000 '¢ 

3 175 1001 ' Get the CCB for the channel. 

: 1003 3 

; 178 1004 IF (.CHAN EQL 0) 

: 179 1005 2 THEN 


a — = a ee _ a 


F 16 
= yeh deems Vex8eb-1984 1:54:66 EBASRTL SRESBASCANTY 
180 BEGIN 
e ithe user is referencing his controlling terminal. 
He] * BASSSCB_PUSH (LUBSK_LUN_INPU, LUBSK_ILUN_MIN); 
Be Ry the controlling terminal is not yet open, open it. 
89 IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPJ); 
even 
BEGIN 


4 
This is an ordinary channel. 


BASSSCB_PUSH (.CHAN, LUBSK_LUN_MIN) ; 


CCB CISBSA_USER_FP] = .FMP CSFSL_SAVE_FP]; 
! If the channel is not now open, give an error signal. 


PRORIPRIRIPORD — tt tt I I I I 
SRSSSSSSSESESSSS 
MEWN—OOONOUS WN 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$STOP_IO (BAS$K_IO_CHANOT); 


1+ 

! This code formerly set the PTA bit and then Let RMS do the actual 

! purge at the record level. This method, however, might purge things 
! typed after the cancel ty eahead was issued. So cancel typeahead now 
by doing a read virtual block of 0 characters. 


oo 


WAWUTIRIRNNNNNNN 3 NLC SSS. 


14 
: SASSIGN will translate SYSS!INPUT to a device name. 


BRR EEF EANWIWWWINNWWIWIAIRIPIPUNININIPININIDN 2 2 OO OS OOOO 
FUN =O OONOAUNEWIN  O ODNAUE WN 9 ODNOAOUES WN (OO ONAMUE WIN ("OO ONO 


POPIPINOPINDNINPUNDNONINGPONIPINGPNOPoNonofponuefory» 


WN =O ODNOUSWN “OOONOUEWN—O0OnN 
CDODTSOOCOCCOCOCOCOCOOCOCOCOSOSOSOOOOOOOOCOSOO OOOO OCOOOOOOOOOOOOOOOOOOoOOoO 


me et ek a et ae a et ts a = = ts Ss SS SS SF ts SS SS SS St YS YH 


REPIPIPOPIPOPOPONIPDNINONIPINYIPININPIPIPINIPININININPINININININIPIPININININIAINWN WW 


DEVNAM_DESC CDSCS$W_LENGTH) = XCHARCOUNT (*SYSSINPUT'); 
DEVNAM_~DESC [CDSC$B-DTYPE] = DSCSK_DTYPE_Z; 
DEVNAM-DESC [DSC$B~CLASS] = DSCSK~CLASS~S;: 
DEVNAM-DESC CDSCS$A~POINTER] = UPLIT('SYSSINPUT'); 
STATUS = SASSIGN (DEVNAM = DEVNAM_DESC, CHAN = CHAN); 
3 IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 
5 STATUS = LIBSGET_EF (EVENT FLAG); 
3 (NOT .STATUS) THEN LIBSSTOP (.STATUS); 
P 1055 STATUS = $Q10W (EFN = .EVENT_FLAG, CHAN = .CHAN, 
P 1056 FUNC = 10$_READVBLK+I0$M_PURGE, 
57 P1 = .CCB CLUBSA_BUF_BEGJ, P2 = 0); 
; 38 IF (NOT .STATUS) THEN LIBSSTOP (7STATUS); 
34 60 STATUS = LIBSFREE_EF (EVENT_FLAG); 
335 061 IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 


-74 
P.852;1 


Page 
: ( 
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BASSCANTYPAHEAD 18. Sep-1984 00:03:23 AX-11 BL 32 v4 P 
gA8OS easee= ihe PFikz22 | aN At othe seze kelp o$0.1 we 
: 237 1063 STATUS = SDASSGN (CHAN = 
; § 64 1, TF (NOT .STATUS) THEN Liséstor es STATUS); 
40 1066 i we are done with register CCB. 
3; 26 1068 BASSS$CB_POP ( 
: 26 106 RETURN TSS$ _NORMAL) ; 
3 44 1070 END; ' end of BASSCANTYPAHEAD 

.TITLE BASSCANTYPAHEAD 

“IDENT \1-005\ 

.PSECT _BASSCODE,NOWRT, SHR, PIC,2 

00 00 00 54 55 50 4E 49 24 53 59 53 00000 P.AAA: .ASCII \SYS$INPUT\<0><0><0> ; 


-EXTRN LIBSGET_EF, LIBSFREE_EF 
“EXTRN LIBS$STOP, BAS$SOPEN ZERO 
~EXTRN BA AS$$CB_PUSH, BAS$$CB_POP 
-EXTRN BASS$S$STOP_IO, GASSK 10_CHANOT 
»EXTRN SVSSASSIGR, Syssal 

-EXTRN SYSS$DASSG 


083C 00000 eENTRY BASSCANTYPAHEAD, Save R2,R3,R4,R5,R11 : 

55 000000006 00 9E 00002 MOVAB BASS$S$CB_PUSH, R5 : 

54 000000006 00 9E 00009 MOVAB LIBSSTOP, R4 : 

3E 0C C2 00010 SUBL2 #12, SP : 

5 5D DO 00013 MOVL FP, FMP : 

04 AC 05 00016 TSTL HAN : 

18 12 00019 BNEG ss : 

50 08 CE 0001B MNEGL #8, RO ; 

52 07 CE OOO1E MNEGL #7. R2 F 

65 16 00021 JSB BAS$$CB_PUSH F 

14 FC AB E8 00023 BLBS -4(CCB)> 2$ ; 

OC A3 DD 00027 PUSHL 12(FMP : 

000000006 00 01 FB 000¢A CALLS #1, BASSSOPEN_ZERO : 
08 11 00031 BRB 2$ F 

50 D4 00033 1$: CLRL : 

52 04 AC DO 00035 MOVL CHAN, _R2 ; 

65 16 00039 JSB BAS$$CB_PUS : 

FF4C CB 0c A3 dO 00038 28: MOVL V2CEMB) - =180¢ccB) ; 

0B FC AB 8 00041 BLBS -4(CCB ; 

43 00G 8F 9A 00045 MOVZBL #BASSK “iget Ewanor -(SP) : 

000000006 0 01 FB 00049 CALLS #1 BASSSSI : 
04 AE 01000009 8F D0 00050 3s: MOVL #16777225, SE UNAM DESC : 

08 AE 99 AF 9E 00058 MOVAB P.AAA, DEVNAM_D DEST+4 3 

7E 7¢€ 00050 CLROQ « (SP) : 

04 AC 9F 0005F PUSHAB CHA F 

10 AE 9F 0062 PUSHAB DEVAN DESC ; 

000000006 00 04 FB 0006 CALLS SYSSASSIGN : 
32 0 pO 0006C MOVL 8. STATUS : 

0 3g E8 O006F BLBS STATUS, 4$ : 

52 DD 00072 PUSHL STATUS F 

64 or FB 00074 CALLS #1, LIBSSTOP ; 

E DD 00077 4$ PUSHL ; 

000000006 00 01 FB 00079 CALLS #1, LIBSGET_EF : 


H 16 
BASSCANTYPAHEAD 16-Sep-1984 00:03:23 AX-11 Bliss-32 V4.0-74 
ae tt 19-808-1 382 90:97:27 BASRTL. atisagcant or oS2:1 
DO 00 MOVL RO, STAT 
38 3 4 8 H BLBS = STATUS, ¥ 
0D PUSHL STATUS 
64 ot FB CALLS #1, LIBS$STOP 
— 7C¢ 90 B S$ CLRO 2 = §P) 
m p30 CLRQ (SP) 
7E 04 OO08F CLRL mt Ye 
BC AB bp 0091 PUSHL -68(CCB) 
7E 7C 00094 CLROQ -(SP) 
7E Be 494) CLRL -(SP) 
7E 0831 8F 3C 0009 MOVZWL #2097, -(SP) 
04 AC OD Beye USHL CHAN 
2c AE 0D 00 ‘ PUSHL ays" FLAG 
00000000G 00 of FB QOOA CALLS #12, SYS$Q10W 
3g 5 DO OOOAA MOVL RO, STATUS 
0 25 E8 OOOAD BLBS STATUS, 6$ 
52 DD 00080 PUSHL STATUS 
64 01 FB st CALLS #1, LIBSSTOP 
SE DD 00085 6$ PUSHL S 
000000006 00 01 FB 000B7 CALLS #1, LIBSFREE_EF 
52 50 00 QOOBE MOVL RO, STATUS 
05 52 €E8 000C1 BLBS STATUS, 7$ 
52 DD 000C4 PUSHL ST 
64 01 FB 000C6 CALLS #1, LIBS$STOP 
04 AC bD 000C9 7$ PUSHL HAN 
000000006 00 01 FB OOOCC CALLS #1, SYSSDASSGN 
52 50 dO 00003 MOVL RO, STATUS 
05 2§ E8 00006 BLBS STATUS, 8$ 
52 DD 00009 PUSHL TATUS 
64 01 FB 000DB CALLS #1, LIBSSTOP 
00000000G 00 16 OOODE 8$: JSB BAS$$CB_POP 
0 01 00 O00E4 MOVL #1, RO 
04 000E7 RET 
; Routine Size: 232 bytes, Routine Base: _BASSCODE + 000C 
245 1071 1 
246 1976 1 END ! end of module BASSCANTYPAHEAD 
247 1073 (1 
248 1074 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 244 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


pagent rs pen- 1986 90: 97: 23 AX-11 Bliss-32 V4.0 Page 


-Sep- BASRTL.SRC BASCANTYP. 5 2;1 
; senceses SyGhel§ cence Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 15 0 581 00:01.2 
: COMMAND QUALIFIERS 
; FL ESEPERECHOW FEL. BNET EA, OPT INE LEDSUDTOACE AL 50-4 SES ORRCANT P/E 90R IE SASLINT WP MSRC$:BASCANTYP/UPDATE=(ENH$:BASCANT YP 
ay Se 232 code + 12 data bytes 
Elapsed ftaes 00:25.1 
Lines/CPU Min: 6005 


ema toe Mite 40277 
—— Used: 157 pages 
Compilation Complete 


(3) 
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